Bowling scores ( 858 pas de programme )

	Enter first balls pin-fall, example 5, EXE. Enter second balls pin-fall, including the first balls total. Example : on the second ball you got 5 so 10, EXE. Follow this till the computer displays your score on and on...that is your final scolre. Start over by MODE 0, SHIFT 0.

10 I=0:H=1:J=0:G=0:F=0:B=0:D=0:K=0:L=0:M=0
20 INPUT ":1",A:H=H+1
21 IF A=I;F=F+1:M=A
24 IF F=3;D=D+30:F=2:GOTO 140
25 IF B=I;D=D+A+10:J=J+1:B=0
27 IF F>1 THEN 140
29 IF A=I;M=0:GOTO 20
30 INPUT "2",B
31 IF F=1 THEN 120
32 IF G=1 THEN 160
46 IF B<>I;D=D+B
47 IF H>=11;H=10:L=1:GOTO 220
50 PRINT D;":FRAME";H;
52 IF L=1;H=11
55 IF H>10;K=K+1:GOTO 180
56 IF K>0;H=10:GOTO 50
70 IF J>=1;J=0:GOTO 210
80 M=0:GOTO 20
120 IF B=I;D=D+20:F=0:M=0:GOTO 47
126 IF H=2;D=D+B+10:F=0:M=0:GOTO 47
127 IF B<>I;D=D+B+10+B:F=0:M=0:GOTO 47
140 IF D=300;H=11:L=1:K=1:GOTO 56
141 IF H=13;H=11:L=1:K=2:M=0:GOTO 47
142 INPUT "1st.",A:H=H+1
145 IF A<>I;D=D+A+20:G=1:F=0:M=0:GOTO 30
147 IF A=I;F=F+1
150 GOTO 24
160 IF B=0;H=11:L=1:K=2:GOTO 220
162 IF H=12 THEN 250
165 IF B<>I;D=D+B+10+B:F=0:G=0:M=0
167 IF B=I;D=D+20:F=0:G=0:M=0
170 GOTO 47
180 IF K>1;H=10:GOTO 50
181 IF M=I THEN 20
185 IF B=I THEN 20
190 IF A<>I;K=2
195 IF B<>I;K=3
200 GOTO 56
210 IF M=I;D=D+20:M=0:F=0:GOTO 47
213 IF H>=11;H=11:L=1:K=2:GOTO 47
215 GOTO 20
220 IF M=I;D=D+A
225 GOTO 52
230 IF A<>I;H=12:K=1:GOTO 30
235 IF M=I;K=2:GOTO 56
240 K=1:GOTO 50
250 IF B<>I;D=D+B+10:F=0:G=0:M=0
260 IF B=I;D=D+20:F=0:G=0:M=0
270 GOTO 47